|
400
|
How can I display only the month of the date
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Month" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "month(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
399
|
How can I get only the year part from a date expression
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Year" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "year(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
398
|
Can I convert the expression to date
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "date(dbl(%0))"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "30000.99" to Nothing
Get ComAddItem of hoItems "3561.23" to Nothing
Get ComAddItem of hoItems "1232.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
397
|
Can I convert the expression to a number, double or float
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Number + 2" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "dbl(%0)+2"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
396
|
How can I display dates in long format
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "LongFormat" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "longdate(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
395
|
How can I display dates in short format
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "ShortFormat" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "shortdate(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
394
|
How can I display the time only of a date expression
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Time" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "'time is:' + time(date(%0))"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
393
|
Is there any function to display currencies, or money formatted as in the control panel
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Currency" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "currency(dbl(%0))"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Get ComAddItem of hoItems "10000.99" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
392
|
How can I convert the expression to a string so I can look into the date string expression for month's name
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Str" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "str(%0) + ' AA'"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
391
|
Can I display the absolute value or positive part of the number
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Abs" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "abs(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
390
|
Is there any function to get largest number with no fraction part that is not greater than the value
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Floor" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "floor(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
389
|
Is there any function to round the values base on the .5 value
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Round" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "round(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
388
|
How can I get or display the integer part of the cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Int" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "int(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
387
|
How can I display names as proper ( first leter of the word must be in uppercase, and the rest in lowercase )
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "proper(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "root" to h
Get ComInsertItem of hoItems h "child child" to Nothing
Get ComInsertItem of hoItems h "child child" to Nothing
Get ComInsertItem of hoItems h "child child" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
386
|
Is there any option to display cells in uppercase
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "upper(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Chld 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
385
|
Is there any option to display cells in lowercase
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "lower(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Chld 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
384
|
How can I mark the cells that has a specified type, ie strings only
Procedure OnCreate
Forward Send OnCreate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "type(%0) = 8" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComForeColor of hoConditionalFormat to (RGB(255,0,0))
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h 2 to Nothing
Get ComInsertItem of hoItems h "Chld 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
383
|
How can I bold the items that contains data or those who displays empty strings
Procedure OnCreate
Forward Send OnCreate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "not len(%1)=0" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBold of hoConditionalFormat to True
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Variant hC
Get ComInsertItem of hoItems h "Child 2" to hC
Set ComCellCaption of hoItems hC 1 to "1"
Get ComInsertItem of hoItems h "Child 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
382
|
Can I change the background color for items or cells that contains a specified string
Procedure OnCreate
Forward Send OnCreate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%0 contains 'hi'" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBackColor of hoConditionalFormat to (RGB(255,0,0))
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Chld 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
381
|
Is there any option to change the fore color for cells or items that ends with a specified string
Procedure OnCreate
Forward Send OnCreate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%0 endwith '22'" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComForeColor of hoConditionalFormat to (RGB(255,0,0))
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 1.22" to Nothing
Get ComInsertItem of hoItems h "Child 2.22" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
380
|
How can I highlight the cells or items that starts with a specified string
Procedure OnCreate
Forward Send OnCreate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%0 startwith 'C'" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComUnderline of hoConditionalFormat to True
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "SChild 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
379
|
How can I change the background color or the visual appearance using ebn for a particular column
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Column 2" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexHeaderBackColor to 16777216
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Column 3" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexHeaderBackColor to 16777471
Send Destroy to hoColumn1
Get ComAdd of hoColumns "Column 4" to Nothing
Send Destroy to hoColumns
End_Procedure
|
|
378
|
How can I change the background color for a particular column
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Column 2" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexHeaderBackColor to 8439039
Send Destroy to hoColumn
Get ComAdd of hoColumns "Column 3" to Nothing
Send Destroy to hoColumns
End_Procedure
|
|
377
|
How can I display the column's header using multiple lines
Procedure OnCreate
Forward Send OnCreate
Set ComHeaderHeight to 128
Set ComHeaderSingleLine to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "This is just a column that should break the header." to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "This is just another column that should break the header." to Nothing
Send Destroy to hoColumns1
End_Procedure
|
|
376
|
How can include the values in the inner cells in the drop down filter window
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexRowLines
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComDescription OLEexFilterBarBlanks to ""
Set ComDescription OLEexFilterBarNonBlanks to ""
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Single Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComHTMLCaption of hoColumn to "Single column with <b>inner cells</b>"
Set ComToolTip of hoColumn to "Click the drop down filter button, and the filter list includes the inner cells values too."
Set ComDisplayFilterButton of hoColumn to True
Set ComDisplayFilterPattern of hoColumn to False
Set ComFilterList of hoColumn to OLEexIncludeInnerCells
Send Destroy to hoColumn
Send Destroy to hoColumns
Set ComShowFocusRect to False
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant s
Get ComSplitCell of hoItems (ComAddItem(hoItems,"S 1.1")) 0 to s
Set ComCellCaption of hoItems s to "S 1.2"
Set ComCellHAlignment of hoItems s to OLECenterAlignment
Set ComCellBackColor of hoItems s to |CI$1000000
Set ComCellWidth of hoItems s to 84
Get ComSplitCell of hoItems (ComAddItem(hoItems,"S 2.1")) 0 to s
Set ComCellCaption of hoItems s to "S 2.2"
Set ComCellHAlignment of hoItems s to OLECenterAlignment
Set ComCellWidth of hoItems s to 84
Get ComSplitCell of hoItems (ComAddItem(hoItems,"S 3.1")) 0 to s
Set ComCellCaption of hoItems s to "S 3.2"
Set ComCellHAlignment of hoItems s to OLECenterAlignment
Set ComCellBackColor of hoItems s to |CI$1000000
Set ComCellWidth of hoItems s to 84
Send Destroy to hoItems
End_Procedure
|
|
375
|
How can I sort the value gets listed in the drop down filter window
Procedure OnCreate
Forward Send OnCreate
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComMarkSearchColumn to False
Set ComDescription OLEexFilterBarAll to ""
Set ComDescription OLEexFilterBarBlanks to ""
Set ComDescription OLEexFilterBarNonBlanks to ""
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "P1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComDisplayFilterPattern of hoColumn to False
Set ComFilterList of hoColumn to OLEexSortItemsDesc
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "P2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDisplayFilterButton of hoColumn1 to True
Set ComDisplayFilterPattern of hoColumn1 to False
Set ComFilterList of hoColumn1 to OLEexSortItemsAsc
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Z3" to h
Set ComCellCaption of hoItems h 1 to "C"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Z1")) 1 to "B"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Z2")) 1 to "A"
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
374
|
How can I align the text/caption on the scroll bar
Procedure OnCreate
Forward Send OnCreate
Set ComScrollPartCaption OLEexHScroll OLEexLowerBackPart to "left"
Set ComScrollPartCaptionAlignment OLEexHScroll OLEexLowerBackPart to OLELeftAlignment
Set ComScrollPartCaption OLEexHScroll OLEexUpperBackPart to "right"
Set ComScrollPartCaptionAlignment OLEexHScroll OLEexUpperBackPart to OLERightAlignment
Set ComColumnAutoResize to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns 1 to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 2 to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Get ComAdd of hoColumns2 3 to Nothing
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Get ComAdd of hoColumns3 4 to Nothing
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Get ComAdd of hoColumns4 5 to Nothing
Send Destroy to hoColumns4
Variant voColumns5
Get ComColumns to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Get ComAdd of hoColumns5 6 to Nothing
Send Destroy to hoColumns5
End_Procedure
|
|
373
|
How do I select the next row/item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Get ComAddItem of hoItems "Item 3" to Nothing
Set ComSelectItem of hoItems (ComNextVisibleItem(hoItems,(ComFocusItem(hoItems)))) to True
Send Destroy to hoItems
End_Procedure
|
|
372
|
How do I enable resizing ( changing the height ) the items at runtime
Procedure OnCreate
Forward Send OnCreate
Set ComItemsAllowSizing to OLEexResizeItem
Set ComDrawGridLines to OLEexHLines
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 1" to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComItemHeight of hoItems1 (ComAddItem(hoItems1,"Item 2")) to 48
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAddItem of hoItems2 "Item 3" to Nothing
Send Destroy to hoItems2
Variant voItems3
Get ComItems to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Get ComAddItem of hoItems3 "Item 4" to Nothing
Send Destroy to hoItems3
End_Procedure
|
|
371
|
How do I enable resizing all the items at runtime
Procedure OnCreate
Forward Send OnCreate
Set ComItemsAllowSizing to OLEexResizeAllItems
Set ComDrawGridLines to OLEexHLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 1" to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComItemHeight of hoItems1 (ComAddItem(hoItems1,"Item 2")) to 48
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAddItem of hoItems2 "Item 3" to Nothing
Send Destroy to hoItems2
End_Procedure
|
|
370
|
How can I remove the filter
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComFilterType of hoColumn to OLEexBlanks
Send Destroy to hoColumn
Send Destroy to hoColumns
Send ComApplyFilter
Send ComClearFilter
End_Procedure
|
|
369
|
How do I change the control's border, using your EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComAppearance to |CI$1000000
End_Procedure
|
|
368
|
Can I change the default border of the tooltip, using your EBN files
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexToolTipAppearance to |CI$1000000
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "this is a tooltip assigned to a column"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
367
|
Can I change the background color for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Set ComBackground OLEexToolTipBackColor to (RGB(255,0,0))
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "this is a tooltip assigned to a column"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
366
|
Does the tooltip support HTML format
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>column</fgcolor>"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
365
|
Can I change the forecolor for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Set ComBackground OLEexToolTipForeColor to (RGB(255,0,0))
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "this is a tooltip assigned to a column"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
364
|
Can I change the foreground color for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "<fgcolor=FF0000>this is a tooltip assigned to a column</fgcolor>"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
363
|
How can I merge cells
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Get ComAdd of hoColumns2 "C3" to Nothing
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "this cell merges the first two columns" to h
Set ComCellMerge of hoItems h 0 to 1
Get ComAddItem of hoItems Nothing to h
Set ComCellCaption of hoItems h 1 to "this cell merges the last two columns"
Set ComCellMerge of hoItems h 1 to 2
Get ComAddItem of hoItems "this cell merges the all three columns" to h
Set ComCellMerge of hoItems h 0 to 1
Set ComCellMerge of hoItems h 0 to 2
Get ComAddItem of hoItems "this draws a divider item" to h
Set ComItemDivider of hoItems h to 0
Send Destroy to hoItems
End_Procedure
|
|
362
|
How can I merge cells
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComTreeColumnIndex to -1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
Set ComCellSingleLine of hoItems h 1 to False
Get ComAddItem of hoItems "This is bit of text merges all cells in the item" to h
Set ComItemDivider of hoItems h to 0
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Send Destroy to hoItems
End_Procedure
|
|
361
|
How can I specify the width for a splited cell
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexRowLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Single Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Split 1" to h
Variant s
Get ComSplitCell of hoItems h 0 to s
Set ComCellWidth of hoItems s to 64
Set ComCellCaption of hoItems s to "Split 2"
Variant s1
Get ComSplitCell of hoItems s to s1
Set ComCellCaption of hoItems s1 to "Split 3"
Set ComCellWidth of hoItems s1 to 64
Send Destroy to hoItems
End_Procedure
|
|
360
|
How can I split a cell in three parts
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexRowLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Single Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Split 1" to h
Variant s
Get ComSplitCell of hoItems h 0 to s
Set ComCellCaption of hoItems s to "Split 2"
Variant s1
Get ComSplitCell of hoItems s to s1
Set ComCellCaption of hoItems s1 to "Split 3"
Send Destroy to hoItems
End_Procedure
|
|
359
|
How can I add a button aligned to right
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Single Column" to Nothing
Send Destroy to hoColumns
Set ComShowFocusRect to False
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemDivider of hoItems (ComAddItem(hoItems,"This is a bit of text being displayed on the entire item")) to 0
Variant s
Get ComSplitCell of hoItems (ComAddItem(hoItems,"Split Cell 1.1")) 0 to s
Set ComCellCaption of hoItems s to "Split Cell <img>1</img>"
Set ComCellCaptionFormat of hoItems s to OLEexHTML
Set ComCellHAlignment of hoItems s to OLECenterAlignment
Set ComCellHasButton of hoItems s to True
Set ComCellWidth of hoItems s to 84
Send Destroy to hoItems
End_Procedure
|
|
358
|
How can I split a cell
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexRowLines
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Single Column" to Nothing
Send Destroy to hoColumns
Set ComShowFocusRect to False
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant s
Get ComSplitCell of hoItems (ComAddItem(hoItems,"Split Cell 1.1")) 0 to s
Set ComCellCaption of hoItems s to "Split Cell <img>1</img>"
Set ComCellCaptionFormat of hoItems s to OLEexHTML
Set ComCellHAlignment of hoItems s to OLECenterAlignment
Set ComCellBackColor of hoItems s to |CI$1000000
Set ComCellWidth of hoItems s to 84
Send Destroy to hoItems
End_Procedure
|
|
357
|
Can I select an item giving its general position
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Set ComSelectPos of hoItems to 1
Send Destroy to hoItems
End_Procedure
|
|
356
|
How can I change the color for separator / dividers items
Procedure OnCreate
Forward Send OnCreate
Set ComGridLineColor to (RGB(255,0,0))
Set ComMarkSearchColumn to False
Set ComTreeColumnIndex to -1
Set ComScrollBySingleLine to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
Set ComCellSingleLine of hoItems h 1 to False
Get ComAddItem of hoItems Nothing to h
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLine of hoItems h to OLEDoubleDotLine
Set ComItemDividerLineAlignment of hoItems h to OLEDividerCenter
Set ComItemHeight of hoItems h to 6
Set ComSelectableItem of hoItems h to False
Get ComAddItem of hoItems "Cell 2" to h
Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
Set ComCellSingleLine of hoItems h 1 to False
Send Destroy to hoItems
End_Procedure
|
|
355
|
How can I add separator - dividers items
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComTreeColumnIndex to -1
Set ComScrollBySingleLine to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
Set ComCellSingleLine of hoItems h 1 to False
Get ComAddItem of hoItems Nothing to h
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLine of hoItems h to OLEDoubleDotLine
Set ComItemDividerLineAlignment of hoItems h to OLEDividerCenter
Set ComItemHeight of hoItems h to 6
Set ComSelectableItem of hoItems h to False
Get ComAddItem of hoItems "Cell 2" to h
Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
Set ComCellSingleLine of hoItems h 1 to False
Send Destroy to hoItems
End_Procedure
|
|
354
|
Can I change the style of the line being displayed by a divider item
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComTreeColumnIndex to -1
Set ComScrollBySingleLine to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
Set ComCellSingleLine of hoItems h 1 to False
Get ComAddItem of hoItems "This is bit of text that's displayed on the entire item, divider." to h
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLine of hoItems h to OLEDoubleDotLine
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Set ComItemHeight of hoItems h to 24
Send Destroy to hoItems
End_Procedure
|
|
353
|
Can I remove the line being displayed by a divider item
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComTreeColumnIndex to -1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
Set ComCellSingleLine of hoItems h 1 to False
Get ComAddItem of hoItems "This is bit of text that's displayed on the entire item, divider." to h
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLine of hoItems h to OLEEmptyLine
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Send Destroy to hoItems
End_Procedure
|
|
352
|
How can I display a divider item, merging all cells
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComTreeColumnIndex to -1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
Set ComCellSingleLine of hoItems h 1 to False
Get ComAddItem of hoItems "This is bit of text that's displayed on the entire item, divider." to h
Set ComItemDivider of hoItems h to 0
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Send Destroy to hoItems
End_Procedure
|
|
351
|
How can I fix or lock items
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLETopAlignment to 1
Set ComCellCaption of hoItems (ComLockedItem(hoItems,OLETopAlignment,0)) 0 to "This is a locked item, fixed to the top side of the control."
Set ComItemBackColor of hoItems (ComLockedItem(hoItems,OLETopAlignment,0)) to (RGB(196,196,186))
Set ComLockedItemCount of hoItems OLEBottomAlignment to 2
Set ComCellCaption of hoItems (ComLockedItem(hoItems,OLEBottomAlignment,0)) 0 to "This is a locked item, fixed to the top side of the control."
Set ComItemBackColor of hoItems (ComLockedItem(hoItems,OLEBottomAlignment,0)) to (RGB(196,196,186))
Set ComCellCaption of hoItems (ComLockedItem(hoItems,OLEBottomAlignment,1)) 0 to "This is a locked item, fixed to the top side of the control."
Set ComItemBackColor of hoItems (ComLockedItem(hoItems,OLEBottomAlignment,1)) to (RGB(186,186,186))
Send Destroy to hoItems
End_Procedure
|
|
350
|
How can I fix or lock an item on the bottom side of the control
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEBottomAlignment to 1
Set ComCellCaption of hoItems (ComLockedItem(hoItems,OLEBottomAlignment,0)) 0 to "This is a locked item, fixed to the bottom side of the control."
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
349
|
How can I fix or lock an item on the top of the control
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLETopAlignment to 1
Set ComCellCaption of hoItems (ComLockedItem(hoItems,OLETopAlignment,0)) 0 to "This is a locked item, fixed to the top side of the control."
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
348
|
Is there any function to limit the height of the items when I display it using multiple lines
Procedure OnCreate
Forward Send OnCreate
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
Set ComCellSingleLine of hoItems h 1 to False
Set ComItemMaxHeight of hoItems h to 48
Send Destroy to hoItems
End_Procedure
|
|
347
|
Why I cannot center my cells in the column
Procedure OnCreate
Forward Send OnCreate
Set ComTreeColumnIndex to -1
Set ComDrawGridLines to OLEexRowLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Default" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLECenterAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "item 1" to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 "item 2" to Nothing
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAddItem of hoItems2 "item 3" to Nothing
Send Destroy to hoItems2
End_Procedure
|
|
346
|
How can I align the cell to the left, center or to the right
Procedure OnCreate
Forward Send OnCreate
Set ComTreeColumnIndex to -1
Set ComDrawGridLines to OLEexRowLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellHAlignment of hoItems (ComAddItem(hoItems,"left")) 0 to OLELeftAlignment
Set ComCellHAlignment of hoItems (ComAddItem(hoItems,"center")) 0 to OLECenterAlignment
Set ComCellHAlignment of hoItems (ComAddItem(hoItems,"right")) 0 to OLERightAlignment
Send Destroy to hoItems
End_Procedure
|
|
345
|
How do I apply HTML format to a cell
Procedure OnCreate
Forward Send OnCreate
Set ComTreeColumnIndex to -1
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComHTMLPicture "p1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "p2" to "c:\exontrol\images\auction.gif"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "The following item shows some of the HTML format supported:" to h
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Get ComAddItem of hoItems "<br>text icons <img>1</img>, <img>2</img>, ... pictures <img>p1</img>, <img>p2</img> <br><br>text <b>bold</b>, <i>italic</i>, <u>underline</u>, <s>strikeout</s>, ...<br><dotline>and so on...<br> <a>anchor</a> or <a2>hyperlink</a><br><fgcolor=FF0000>fgcolor</fgcolor> or <bgcolor=00FF00>bgcolor</bgcolor> " to h
Set ComCellCaptionFormat of hoItems h 0 to OLEexHTML
Set ComCellSingleLine of hoItems h 0 to False
Send Destroy to hoItems
End_Procedure
|
|
344
|
How can I change the font for a cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "std font" to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellCaptionFormat of hoItems1 (ComAddItem(hoItems1,"this <font tahoma;12>is a bit of text with</font> a different font")) 0 to OLEexHTML
Send Destroy to hoItems1
End_Procedure
|
|
343
|
How can I change the font for a cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "default font" to Nothing
Send Destroy to hoItems
Variant f
Get Comcreateobject "StdFont" to f
Set ComName to "Tahoma"
Set ComSize to 12
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellFont of hoItems1 (ComAddItem(hoItems1,"new font")) 0 to f
Send Destroy to hoItems1
End_Procedure
|
|
342
|
How can I change the font for entire item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "default font" to Nothing
Send Destroy to hoItems
Variant f
Get Comcreateobject "StdFont" to f
Set ComName to "Tahoma"
Set ComSize to 12
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComItemFont of hoItems1 (ComAddItem(hoItems1,"new font")) to f
Send Destroy to hoItems1
End_Procedure
|
|
341
|
How do I vertically align a cell
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexRowLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "MultipleLine" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellSingleLine to False
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "VAlign" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "This is a bit of long text that should break the line" to h
Set ComCellCaption of hoItems h 1 to "top"
Set ComCellVAlignment of hoItems h 1 to OLETopAlignment
Get ComAddItem of hoItems "This is a bit of long text that should break the line" to h
Set ComCellCaption of hoItems h 1 to "middle"
Set ComCellVAlignment of hoItems h 1 to OLEMiddleAlignment
Get ComAddItem of hoItems "This is a bit of long text that should break the line" to h
Set ComCellCaption of hoItems h 1 to "bottom"
Set ComCellVAlignment of hoItems h 1 to OLEBottomAlignment
Send Destroy to hoItems
End_Procedure
|
|
340
|
How can I change the position of an item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Set ComItemPosition of hoItems (ComAddItem(hoItems,"Item 3")) to 0
Send Destroy to hoItems
End_Procedure
|
|
339
|
How do I find an item based on a path
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Set ComItemData of hoItems (ComInsertItem(hoItems,h,"Child 2")) to 1234
Set ComExpandItem of hoItems h to True
Set ComItemBold of hoItems (ComFindPath(hoItems,"Root 1\Child 1")) to True
Send Destroy to hoItems
End_Procedure
|
|
338
|
How do I find an item based on my extra data
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Set ComItemData of hoItems (ComInsertItem(hoItems,h,"Child 2")) to 1234
Set ComExpandItem of hoItems h to True
Set ComItemBold of hoItems (ComFindItemData(hoItems,1234,Nothing)) to True
Send Destroy to hoItems
End_Procedure
|
|
337
|
How do I find an item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Set ComItemBold of hoItems (ComFindItem(hoItems,"Child 2",0,Nothing)) to True
Send Destroy to hoItems
End_Procedure
|
|
336
|
How can I insert a hyperlink or an anchor element
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellCaptionFormat of hoItems (ComAddItem(hoItems,"Just an <a1>anchor</a> element ...")) 0 to OLEexHTML
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellCaptionFormat of hoItems1 (ComAddItem(hoItems1,"Just another <a2>anchor</a> element ...")) 0 to OLEexHTML
Send Destroy to hoItems1
End_Procedure
|
|
335
|
How do I find the index of the item based on its handle
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Set ComItemBold of hoItems (ComItemByIndex(hoItems,(ComItemToIndex(hoItems,h)))) to True
Send Destroy to hoItems
End_Procedure
|
|
334
|
How do I find the handle of the item based on its index
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Set ComItemBold of hoItems (ComItemByIndex(hoItems,1)) to True
Send Destroy to hoItems
End_Procedure
|
|
333
|
How can I find the cell being clicked in a radio group
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComSelBackColor to (RGB(255,255,128))
Set ComSelForeColor to (RGB(0,0,0))
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Get ComAdd of hoColumns2 "C3" to Nothing
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "Radio 1"
Set ComCellHasRadioButton of hoItems h 1 to True
Set ComCellRadioGroup of hoItems h 1 to 1234
Set ComCellCaption of hoItems h 2 to "Radio 2"
Set ComCellHasRadioButton of hoItems h 2 to True
Set ComCellRadioGroup of hoItems h 2 to 1234
Set ComCellState of hoItems h 1 to 1
Set ComCellBold of hoItems (ComCellChecked(hoItems,1234)) to True
Send Destroy to hoItems
End_Procedure
|
|
332
|
Can I add a +/- ( expand / collapse ) buttons to each item, so I can load the child items later
Procedure OnCreate
Forward Send OnCreate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemHasChildren of hoItems (ComAddItem(hoItems,"parent item with no child items")) to True
Get ComAddItem of hoItems "next item" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
331
|
Can I let the user to resize at runtime the specified item
Procedure OnCreate
Forward Send OnCreate
Set ComScrollBySingleLine to True
Set ComDrawGridLines to OLEexRowLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemAllowSizing of hoItems (ComAddItem(hoItems,"resizable item")) to True
Get ComAddItem of hoItems "not resizable item" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
330
|
How can I change the size ( width, height ) of the picture
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComCellPicture of hoItems h 0 to (vPicture)
Set ComCellPictureWidth of hoItems h 0 to 24
Set ComCellPictureHeight of hoItems h 0 to 24
Set ComItemHeight of hoItems h to 32
Get ComAddItem of hoItems "Root 2" to h
Variant vPicture1
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture1
Set ComCellPicture of hoItems h 0 to (vPicture1)
Set ComItemHeight of hoItems h to 48
Send Destroy to hoItems
End_Procedure
|
|
329
|
How can I find the number or the count of selected items
Procedure OnCreate
Forward Send OnCreate
Set ComSingleSel to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Set ComSelectItem of hoItems (ComItemChild(hoItems,h)) to True
Set ComSelectItem of hoItems (ComNextSiblingItem(hoItems,(ComItemChild(hoItems,h)))) to True
Get ComAddItem of hoItems (ComSelectCount(hoItems)) to Nothing
Send Destroy to hoItems
End_Procedure
|
|
328
|
How do I unselect an item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Set ComSelectItem of hoItems h to False
Send Destroy to hoItems
End_Procedure
|
|
327
|
How do I find the selected item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Set ComSelectItem of hoItems h to True
Set ComItemBold of hoItems (ComSelectedItem(hoItems,0)) to True
Send Destroy to hoItems
End_Procedure
|
|
326
|
How do I un select all items
Procedure OnCreate
Forward Send OnCreate
Set ComSingleSel to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send ComUnselectAll of hoItems
Send Destroy to hoItems
End_Procedure
|
|
325
|
How do I select multiple items
Procedure OnCreate
Forward Send OnCreate
Set ComSingleSel to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Set ComSelectItem of hoItems (ComItemChild(hoItems,h)) to True
Set ComSelectItem of hoItems (ComNextSiblingItem(hoItems,(ComItemChild(hoItems,h)))) to True
Send Destroy to hoItems
End_Procedure
|
|
324
|
How do I select all items
Procedure OnCreate
Forward Send OnCreate
Set ComSingleSel to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send ComSelectAll of hoItems
Send Destroy to hoItems
End_Procedure
|
|
323
|
How do I select an item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Set ComSelectItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
322
|
Can I display a button with some picture or icon inside
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "p1" to "c:\exontrol\images\zipdisk.gif"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to " Button <img>p1</img> "
Set ComCellCaptionFormat of hoItems h 1 to OLEexHTML
Set ComCellHAlignment of hoItems h 1 to OLERightAlignment
Set ComCellHasButton of hoItems h 1 to True
Set ComCellButtonAutoWidth of hoItems h 1 to True
Set ComItemHeight of hoItems h to 48
Send Destroy to hoItems
End_Procedure
|
|
321
|
Can I display a button with some picture or icon inside
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to " Button <img>1</img> "
Set ComCellCaptionFormat of hoItems h 1 to OLEexHTML
Set ComCellHAlignment of hoItems h 1 to OLERightAlignment
Set ComCellHasButton of hoItems h 1 to True
Set ComCellButtonAutoWidth of hoItems h 1 to True
Send Destroy to hoItems
End_Procedure
|
|
320
|
Can I display a button with some icon inside
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to " <img>1</img> "
Set ComCellCaptionFormat of hoItems h 1 to OLEexHTML
Set ComCellHAlignment of hoItems h 1 to OLERightAlignment
Set ComCellHasButton of hoItems h 1 to True
Set ComCellButtonAutoWidth of hoItems h 1 to True
Send Destroy to hoItems
End_Procedure
|
|
319
|
How can I assign multiple icon/picture to a cell
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "p1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "p2" to "c:\exontrol\images\auction.gif"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "text <img>p1</img> another picture <img>p2</img> and so on" to h
Set ComCellCaptionFormat of hoItems h 0 to OLEexHTML
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\colorize.gif`)" to vPicture
Set ComCellPicture of hoItems h 0 to (vPicture)
Set ComItemHeight of hoItems h to 48
Get ComAddItem of hoItems "Root 2" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
318
|
How can I assign an icon/picture to a cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComCellPicture of hoItems h 0 to (vPicture)
Set ComItemHeight of hoItems h to 48
Get ComAddItem of hoItems "Root 2" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
317
|
How can I assign multiple icons/pictures to a cell
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root <img>1</img> 1, <img>2</img>, ... and so on " to h
Set ComCellCaptionFormat of hoItems h 0 to OLEexHTML
Send Destroy to hoItems
End_Procedure
|
|
316
|
How can I assign multiple icons/pictures to a cell
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Set ComCellImages of hoItems h 0 to "1,2,3"
Send Destroy to hoItems
End_Procedure
|
|
315
|
How can I assign an icon/picture to a cell
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Set ComCellImage of hoItems h 0 to 1
Set ComCellImage of hoItems (ComInsertItem(hoItems,h,"Child 1")) 0 to 2
Set ComCellImage of hoItems (ComInsertItem(hoItems,h,"Child 2")) 0 to 3
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
314
|
How can I get the handle of an item based on the handle of the cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Set ComItemBold of hoItems (ComCellItem(hoItems,(ComItemCell(hoItems,h,0)))) to True
Send Destroy to hoItems
End_Procedure
|
|
313
|
How can I display a button inside the item or cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to " Button 1 "
Set ComCellHAlignment of hoItems h 1 to OLERightAlignment
Set ComCellHasButton of hoItems h 1 to True
Set ComCellButtonAutoWidth of hoItems h 1 to True
Get ComAddItem of hoItems "Cell 2" to h
Set ComCellCaption of hoItems h 1 to " Button 2 "
Set ComCellHAlignment of hoItems h 1 to OLECenterAlignment
Set ComCellHasButton of hoItems h 1 to True
Send Destroy to hoItems
End_Procedure
|
|
312
|
How can I change the state of a radio button
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComSelBackColor to (RGB(255,255,128))
Set ComSelForeColor to (RGB(0,0,0))
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Get ComAdd of hoColumns2 "C3" to Nothing
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "Radio 1"
Set ComCellHasRadioButton of hoItems h 1 to True
Set ComCellRadioGroup of hoItems h 1 to 1234
Set ComCellCaption of hoItems h 2 to "Radio 2"
Set ComCellHasRadioButton of hoItems h 2 to True
Set ComCellRadioGroup of hoItems h 2 to 1234
Set ComCellState of hoItems h 1 to 1
Send Destroy to hoItems
End_Procedure
|
|
311
|
How can I assign a radio button to a cell
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComSelBackColor to (RGB(255,255,128))
Set ComSelForeColor to (RGB(0,0,0))
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Get ComAdd of hoColumns2 "C3" to Nothing
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "Radio 1"
Set ComCellHasRadioButton of hoItems h 1 to True
Set ComCellRadioGroup of hoItems h 1 to 1234
Set ComCellCaption of hoItems h 2 to "Radio 2"
Set ComCellHasRadioButton of hoItems h 2 to True
Set ComCellRadioGroup of hoItems h 2 to 1234
Set ComCellState of hoItems h 1 to 1
Send Destroy to hoItems
End_Procedure
|
|
310
|
How can I change the state of a checkbox
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "Check Box"
Set ComCellHasCheckBox of hoItems h 1 to True
Set ComCellState of hoItems h 1 to 1
Send Destroy to hoItems
End_Procedure
|
|
309
|
How can I assign a checkbox to a cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "Check Box"
Set ComCellHasCheckBox of hoItems h 1 to True
Send Destroy to hoItems
End_Procedure
|
|
308
|
How can I display an item or a cell on multiple lines
Procedure OnCreate
Forward Send OnCreate
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines"
Set ComCellSingleLine of hoItems h 1 to False
Send Destroy to hoItems
End_Procedure
|
|
307
|
How can I assign a tooltip to a cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "tooltip"
Set ComCellToolTip of hoItems h 1 to "This is bit of text that's shown when the user hovers the cell"
Send Destroy to hoItems
End_Procedure
|
|
306
|
How can I associate an extra data to a cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "Cell 2"
Set ComCellData of hoItems h 1 to "your extra data"
Send Destroy to hoItems
End_Procedure
|
|
305
|
How do I enable or disable a cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "Cell 2"
Set ComCellEnabled of hoItems h 1 to False
Send Destroy to hoItems
End_Procedure
|
|
304
|
How do I change the cell's foreground color
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "Cell 2"
Set ComCellForeColor of hoItems h 1 to (RGB(255,0,0))
Send Destroy to hoItems
End_Procedure
|
|
303
|
How do I change the visual effect for the cell, using your EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "Cell 2"
Set ComCellBackColor of hoItems h 1 to |CI$1000000
Send Destroy to hoItems
End_Procedure
|
|
302
|
How do I change the cell's background color
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "Cell 2"
Set ComCellBackColor of hoItems h 1 to (RGB(255,0,0))
Send Destroy to hoItems
End_Procedure
|
|
301
|
How do I change the caption or value for a particular cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellCaption of hoItems (ComAddItem(hoItems,"Cell 1")) 1 to "Cell 2"
Send Destroy to hoItems
End_Procedure
|